home *** CD-ROM | disk | FTP | other *** search
/ Tech Win 1995 November / CD [TECH_B].bin / tech_b / delphi / trial / disk4 / doc.pak / MBUTILS.INT < prev    next >
Encoding:
Text File  |  1995-08-08  |  1.7 KB  |  53 lines
  1.  
  2. {*******************************************************}
  3. {                                                       }
  4. {       Delphi Runtime Library                          }
  5. {       System Utilities Unit                           }
  6. {                                                       }
  7. {       Copyright (C) 1995 Borland International        }
  8. {                                                       }
  9. {*******************************************************}
  10.  
  11. unit MBUtils;
  12.  
  13. {$N+,P+,S-,G+}
  14.  
  15. {$IFDEF DPMI}
  16. {$C FIXED PRELOAD PERMANENT}
  17. {$ENDIF}
  18.  
  19. {$IFDEF WINDOWS}
  20. {$C MOVEABLE PRELOAD PERMANENT}
  21. {$ENDIF}
  22.  
  23. interface
  24.  
  25. (***** 基本関数 *****)
  26. { 引数 c が現在の動作環境下での２バイト文字の第１バイト目の範囲かどうかを
  27.   判定します。Shift-JIS では $81..$9F または $E0..$FC の場合 TRUE を返します
  28. }  
  29. function IsMBBLead( c: char ) : WordBool;
  30.  
  31. { 引数 p1 からはじまる文字列の p2 の位置の１バイトについて、２バイト文字の
  32.   第１バイト目か第２バイト目かを判定します。指定した位置の文字が第１バイト目
  33.   なら IsMBSLead は True を返し、第２バイト目なら IsMBSTrail が True を返します
  34. }
  35. function IsMBSLead( p1, p2: pchar ) : Boolean;
  36. function IsMBSTrail( p1, p2: pchar ) : Boolean;
  37.  
  38. (***** パス操作関数 *****)
  39. function CheckLastChar( s : string; c : char ) : Boolean;
  40. function CheckLastCharP( p : pchar; c : char ) : Boolean;
  41.  
  42. function GetLastChar( s : string ): char;
  43.  
  44. function MBNextIndex(const FileName: string; Ind: Integer) : Integer;
  45.  
  46. (***** Null-terminated Multi-byte string support function *****)
  47. function MBStrRScan(Str: PChar; Chr: Char): PChar;
  48.  
  49. (***** PASCAL type Multi-byte string support function *****)
  50. function mbPos( Substr: String; S: String): Byte;
  51.  
  52. implementation
  53.